1 '*** GADGET *** CARRESCRL ***
10 DIMA$(2):A$(0)="0000100000":A$(1)="0038283800":A$(2)="7C4444447C":FORI=0TO2:DEFCHR$(253+I)=A$(I):NEXT
20 CLS:FORI=0TO63:PRINTCHR$(255-(I MOD3));:NEXT:LOCATE0,0:I=0
30 DEFCHR$(253)=A$((I+1)MOD3):I=I+1:A=SIN5:DEFCHR$(254)=A$((I+1)MOD3):A=SIN5:DEFCHR$(255)=A$((I+2)MOD3):GOTO30
40 I=I+1:DEFCHR$(253)=A$(I MOD3):DEFCHR$(254)=A$((I+1)MOD3):DEFCHR$(255)=A$((I+2)MOD3):GOTO30